Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE19/TIPTRIX/LISTING6.PAS

Pascal/Delphi Source File | 1997-02-18 | 433 b | 19 lines

procedure TForm1.ButtonPostClick(Sender: TObject);
begin
 try
    Table1.Post;                      {try to Post}

{we did not get to the BeforePost event handler before the error occurred}
 except on EDatabaseError do begin

    if DBEdit1.Text = ''        {our recovery code}
      then begin
        ShowMessage('This Field cannot be left blank');
        DBEdit1.SetFocus;
        Abort;
        end;
      end;
  end;
end;